inherited frmCad_Entidade: TfrmCad_Entidade
  Left = 81
  Top = 112
  AutoSize = True
  Caption = 'Entidade'
  ClientHeight = 402
  ClientWidth = 641
  OldCreateOrder = True
  Position = poDesktopCenter
  Scaled = False
  ShowHint = True
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  inherited Panel1: TPanel
    Width = 641
    Height = 38
    object Label1: TLabel
      Left = 16
      Top = 9
      Width = 39
      Height = 14
      Caption = 'C'#243'digo'
    end
    object btnC_Entidade: TSpeedButton
      Left = 104
      Top = 8
      Width = 23
      Height = 22
      Flat = True
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        333333333333FF3333333333333C0C333333333333F777F3333333333CC0F0C3
        333333333777377F33333333C30F0F0C333333337F737377F333333C00FFF0F0
        C33333F7773337377F333CC0FFFFFF0F0C3337773F33337377F3C30F0FFFFFF0
        F0C37F7373F33337377F00FFF0FFFFFF0F0C7733373F333373770FFFFF0FFFFF
        F0F073F33373F333373730FFFFF0FFFFFF03373F33373F333F73330FFFFF0FFF
        00333373F33373FF77333330FFFFF000333333373F333777333333330FFF0333
        3333333373FF7333333333333000333333333333377733333333333333333333
        3333333333333333333333333333333333333333333333333333}
      NumGlyphs = 2
      OnClick = btnC_EntidadeClick
    end
    object Label35: TLabel
      Left = 136
      Top = 13
      Width = 24
      Height = 14
      Caption = 'aaaa'
    end
    object edtent_codigo: TEdit
      Left = 64
      Top = 8
      Width = 36
      Height = 22
      BevelKind = bkFlat
      BorderStyle = bsNone
      MaxLength = 5
      TabOrder = 0
      OnEnter = edtent_codigoEnter
      OnExit = edtent_codigoExit
      OnKeyDown = edtent_codigoKeyDown
      OnKeyPress = edtent_codigoKeyPress
    end
  end
  inherited Panel2: TPanel
    Top = 38
    Width = 641
    Height = 310
    Align = alTop
    object PageControl1: TPageControl
      Left = 7
      Top = 7
      Width = 629
      Height = 298
      ActivePage = TabSheet1
      MultiLine = True
      TabOrder = 0
      object TabSheet1: TTabSheet
        Caption = 'Dados Cadastrais'
        OnMouseUp = TabSheet1MouseUp
        object Label2: TLabel
          Left = 5
          Top = 34
          Width = 102
          Height = 14
          Caption = 'Nome/Raz'#227'o Social'
        end
        object Label3: TLabel
          Left = 27
          Top = 58
          Width = 80
          Height = 14
          Caption = 'Nome Fantasia'
        end
        object Label9: TLabel
          Left = 75
          Top = 82
          Width = 32
          Height = 14
          Caption = 'E-Mail'
        end
        object Label10: TLabel
          Left = 45
          Top = 106
          Width = 62
          Height = 14
          Caption = 'Home Page'
        end
        object Label11: TLabel
          Left = 72
          Top = 205
          Width = 35
          Height = 14
          Caption = 'Status'
        end
        object Label13: TLabel
          Left = 17
          Top = 10
          Width = 90
          Height = 14
          Caption = 'Tipo da Entidade'
        end
        object Label6: TLabel
          Left = 14
          Top = 129
          Width = 93
          Height = 14
          Caption = 'Data do Cadastro'
        end
        object Label7: TLabel
          Left = 6
          Top = 153
          Width = 101
          Height = 14
          Caption = 'Data da Inatividade'
        end
        object Label8: TLabel
          Left = 11
          Top = 177
          Width = 96
          Height = 14
          Caption = 'Limite de Cr'#233'dito'
        end
        object Label37: TLabel
          Left = 254
          Top = 130
          Width = 110
          Height = 14
          Alignment = taRightJustify
          Caption = 'Data Nasc./Funda'#231#227'o'
        end
        object edtent_Bloqueado: TRadioGroup
          Left = 482
          Top = 205
          Width = 137
          Height = 32
          Caption = 'Bloqueado'
          Columns = 2
          ItemIndex = 0
          Items.Strings = (
            'N'#227'o'
            'Sim')
          TabOrder = 10
          OnExit = edtent_BloqueadoExit
        end
        object edtent_tipoent: TComboBox
          Left = 110
          Top = 8
          Width = 105
          Height = 22
          BevelInner = bvLowered
          BevelKind = bkFlat
          BevelOuter = bvRaised
          Style = csDropDownList
          ItemHeight = 14
          TabOrder = 0
          OnExit = edtent_tipoentExit
          Items.Strings = (
            '0 - Cliente'
            '1 - Fornecedor'
            '2 - Ambos')
        end
        object edtent_nome: TEdit
          Left = 110
          Top = 32
          Width = 363
          Height = 22
          BevelInner = bvLowered
          BevelKind = bkFlat
          BevelOuter = bvRaised
          BorderStyle = bsNone
          CharCase = ecUpperCase
          MaxLength = 40
          TabOrder = 1
          OnChange = edtent_nomeChange
          OnKeyDown = edtent_nomeKeyDown
        end
        object edtent_fantasia: TEdit
          Left = 110
          Top = 56
          Width = 363
          Height = 22
          BevelInner = bvLowered
          BevelKind = bkFlat
          BevelOuter = bvRaised
          BorderStyle = bsNone
          CharCase = ecUpperCase
          MaxLength = 25
          TabOrder = 2
          OnChange = edtent_fantasiaChange
          OnKeyDown = edtent_fantasiaKeyDown
        end
        object edtent_email: TEdit
          Left = 110
          Top = 80
          Width = 363
          Height = 22
          BevelInner = bvLowered
          BevelKind = bkFlat
          BevelOuter = bvRaised
          BorderStyle = bsNone
          CharCase = ecLowerCase
          MaxLength = 50
          TabOrder = 3
        end
        object edtent_homepage: TEdit
          Left = 110
          Top = 104
          Width = 363
          Height = 22
          BevelInner = bvLowered
          BevelKind = bkFlat
          BevelOuter = bvRaised
          BorderStyle = bsNone
          MaxLength = 40
          TabOrder = 4
        end
        object edtent_status: TEdit
          Left = 110
          Top = 204
          Width = 43
          Height = 22
          BevelInner = bvLowered
          BevelKind = bkFlat
          BevelOuter = bvRaised
          BorderStyle = bsNone
          CharCase = ecUpperCase
          MaxLength = 5
          TabOrder = 9
        end
        object edtent_datacad: TDateEdit
          Left = 110
          Top = 128
          Width = 104
          Height = 21
          NumGlyphs = 2
          TabOrder = 5
        end
        object edtent_dataina: TDateEdit
          Left = 110
          Top = 152
          Width = 104
          Height = 21
          NumGlyphs = 2
          TabOrder = 7
        end
        object edtent_limite: TCurrencyEdit
          Left = 110
          Top = 176
          Width = 103
          Height = 21
          AutoSize = False
          TabOrder = 8
          OnExit = edtent_limiteExit
        end
        object ed_nasc: TDateEdit
          Left = 369
          Top = 128
          Width = 104
          Height = 21
          NumGlyphs = 2
          TabOrder = 6
        end
        object dbRazao: TDBGrid
          Left = 110
          Top = 56
          Width = 509
          Height = 120
          BorderStyle = bsNone
          DataSource = DtSource
          Options = [dgColumnResize, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
          TabOrder = 11
          TitleFont.Charset = ANSI_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -11
          TitleFont.Name = 'Arial'
          TitleFont.Style = [fsBold]
          Visible = False
          OnExit = dbRazaoExit
          OnKeyDown = dbRazaoKeyDown
          Columns = <
            item
              Color = clInfoBk
              Expanded = False
              FieldName = 'ENT_CODIGO'
              Title.Caption = 'C'#243'digo'
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'ENT_CNPJ'
              Title.Caption = 'CNPJ'
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'NOME'
              Title.Caption = 'Raz'#227'o Social'
              Width = 270
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'FANTASIA'
              Title.Caption = 'Nome Fantasia'
              Visible = True
            end>
        end
        object dbFantasia: TDBGrid
          Left = 110
          Top = 80
          Width = 511
          Height = 120
          BorderStyle = bsNone
          DataSource = DtSource
          Options = [dgColumnResize, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
          TabOrder = 12
          TitleFont.Charset = ANSI_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -11
          TitleFont.Name = 'Arial'
          TitleFont.Style = [fsBold]
          Visible = False
          OnExit = dbFantasiaExit
          OnKeyDown = dbFantasiaKeyDown
          Columns = <
            item
              Color = clInfoBk
              Expanded = False
              FieldName = 'ENT_CODIGO'
              Title.Caption = 'C'#243'digo'
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'ENT_CNPJ'
              Title.Caption = 'CNPJ'
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'NOME'
              Title.Caption = 'Raz'#227'o Social'
              Width = 270
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'FANTASIA'
              Title.Caption = 'Nome Fantasia'
              Visible = True
            end>
        end
      end
      object TabSheet2: TTabSheet
        Caption = 'Dados Cadastrais I'
        ImageIndex = 1
        object Label4: TLabel
          Left = 107
          Top = 19
          Width = 28
          Height = 14
          Caption = 'CNPJ'
        end
        object Label12: TLabel
          Left = 114
          Top = 43
          Width = 21
          Height = 14
          Caption = 'CPF'
        end
        object Label5: TLabel
          Left = 36
          Top = 66
          Width = 99
          Height = 14
          Caption = 'Inscri'#231#227'o Estadual'
        end
        object lblCodContab: TLabel
          Left = 20
          Top = 113
          Width = 115
          Height = 14
          Alignment = taRightJustify
          Caption = 'C'#243'd. Contabil Cliente'
        end
        object Label36: TLabel
          Left = 114
          Top = 90
          Width = 21
          Height = 14
          Caption = 'R.G.'
        end
        object lblCTB: TLabel
          Left = 18
          Top = 137
          Width = 117
          Height = 14
          Caption = 'C'#243'd. Contabil Fornec.'
          Visible = False
        end
        object edtent_inscest: TEdit
          Left = 144
          Top = 64
          Width = 177
          Height = 22
          BevelInner = bvLowered
          BevelKind = bkFlat
          BorderStyle = bsNone
          CharCase = ecUpperCase
          MaxLength = 21
          TabOrder = 2
        end
        object edtEnt_tipo: TRadioGroup
          Left = 339
          Top = 181
          Width = 281
          Height = 39
          Caption = 'Caracteristica'
          Columns = 2
          ItemIndex = 0
          Items.Strings = (
            '0 - Varejista'
            '1 - Grande Magazine')
          TabOrder = 7
          OnExit = edtEnt_tipoExit
        end
        object edtEnt_Contabil: TEdit
          Left = 144
          Top = 112
          Width = 121
          Height = 22
          BevelInner = bvLowered
          BevelKind = bkFlat
          BorderStyle = bsNone
          CharCase = ecUpperCase
          MaxLength = 10
          TabOrder = 4
        end
        object edtent_cnpj: TMaskEdit
          Left = 144
          Top = 16
          Width = 121
          Height = 22
          BevelInner = bvLowered
          BevelKind = bkFlat
          BorderStyle = bsNone
          EditMask = '99.999.999/9999-99;0; '
          MaxLength = 18
          TabOrder = 0
          OnExit = MaskEdit1Exit
        end
        object edtent_cpf: TMaskEdit
          Left = 144
          Top = 40
          Width = 121
          Height = 22
          BevelInner = bvLowered
          BevelKind = bkFlat
          BorderStyle = bsNone
          EditMask = '999.999.999-99;0; '
          MaxLength = 14
          TabOrder = 1
          OnEnter = edtent_cpfEnter
          OnExit = edtent_cpfExit
        end
        object edthomologado: TRadioGroup
          Left = 80
          Top = 162
          Width = 185
          Height = 58
          Caption = 'Homologado'
          Items.Strings = (
            'Sim'
            'N'#227'o'
            'Em Processo')
          TabOrder = 6
        end
        object ed_rg: TEdit
          Left = 144
          Top = 88
          Width = 121
          Height = 22
          BevelInner = bvLowered
          BevelKind = bkFlat
          BorderStyle = bsNone
          CharCase = ecUpperCase
          MaxLength = 11
          TabOrder = 3
          OnKeyPress = ed_rgKeyPress
        end
        object edtCTB: TEdit
          Left = 144
          Top = 136
          Width = 121
          Height = 22
          BevelInner = bvLowered
          BevelKind = bkFlat
          BorderStyle = bsNone
          CharCase = ecUpperCase
          MaxLength = 10
          TabOrder = 5
          Visible = False
        end
      end
      object TabSheet5: TTabSheet
        Caption = 'Endere'#231'os'
        ImageIndex = 4
        object Label23: TLabel
          Left = 4
          Top = 2
          Width = 96
          Height = 14
          Caption = 'Tipo do Endere'#231'o'
        end
        object btnC_TipoEndereco: TSpeedButton
          Left = 138
          Top = 1
          Width = 23
          Height = 22
          Enabled = False
          Flat = True
          Glyph.Data = {
            76010000424D7601000000000000760000002800000020000000100000000100
            04000000000000010000120B0000120B00001000000000000000000000000000
            800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
            333333333333FF3333333333333C0C333333333333F777F3333333333CC0F0C3
            333333333777377F33333333C30F0F0C333333337F737377F333333C00FFF0F0
            C33333F7773337377F333CC0FFFFFF0F0C3337773F33337377F3C30F0FFFFFF0
            F0C37F7373F33337377F00FFF0FFFFFF0F0C7733373F333373770FFFFF0FFFFF
            F0F073F33373F333373730FFFFF0FFFFFF03373F33373F333F73330FFFFF0FFF
            00333373F33373FF77333330FFFFF000333333373F333777333333330FFF0333
            3333333373FF7333333333333000333333333333377733333333333333333333
            3333333333333333333333333333333333333333333333333333}
          NumGlyphs = 2
          OnClick = btnC_TipoEnderecoClick
        end
        object Label24: TLabel
          Left = 48
          Top = 60
          Width = 52
          Height = 14
          Caption = 'Endere'#231'o'
        end
        object Label25: TLabel
          Left = 67
          Top = 85
          Width = 33
          Height = 14
          Caption = 'Bairro'
        end
        object Label26: TLabel
          Left = 78
          Top = 31
          Width = 22
          Height = 14
          Caption = 'Cep'
        end
        object Label27: TLabel
          Left = 73
          Top = 139
          Width = 27
          Height = 14
          Caption = 'Fone'
        end
        object Label28: TLabel
          Left = 366
          Top = 141
          Width = 18
          Height = 14
          Caption = 'Fax'
        end
        object Label29: TLabel
          Left = 62
          Top = 112
          Width = 38
          Height = 14
          Caption = 'Cidade'
        end
        object btnC_Cidade: TSpeedButton
          Left = 142
          Top = 112
          Width = 23
          Height = 22
          Enabled = False
          Flat = True
          Glyph.Data = {
            76010000424D7601000000000000760000002800000020000000100000000100
            04000000000000010000120B0000120B00001000000000000000000000000000
            800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
            333333333333FF3333333333333C0C333333333333F777F3333333333CC0F0C3
            333333333777377F33333333C30F0F0C333333337F737377F333333C00FFF0F0
            C33333F7773337377F333CC0FFFFFF0F0C3337773F33337377F3C30F0FFFFFF0
            F0C37F7373F33337377F00FFF0FFFFFF0F0C7733373F333373770FFFFF0FFFFF
            F0F073F33373F333373730FFFFF0FFFFFF03373F33373F333F73330FFFFF0FFF
            00333373F33373FF77333330FFFFF000333333373F333777333333330FFF0333
            3333333373FF7333333333333000333333333333377733333333333333333333
            3333333333333333333333333333333333333333333333333333}
          NumGlyphs = 2
          OnClick = btnC_CidadeClick
        end
        object btn_EliminaEndereco: TSpeedButton
          Left = 512
          Top = 1
          Width = 77
          Height = 22
          Caption = 'Eliminar'
          Flat = True
          OnClick = btn_EliminaEnderecoClick
        end
        object p_faxddd: TLabel
          Left = 413
          Top = 141
          Width = 3
          Height = 14
          Alignment = taRightJustify
          Font.Charset = ANSI_CHARSET
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'Arial'
          Font.Style = [fsBold]
          ParentFont = False
        end
        object p_foneddd: TLabel
          Left = 122
          Top = 139
          Width = 3
          Height = 14
          Alignment = taRightJustify
          Font.Charset = ANSI_CHARSET
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'Arial'
          Font.Style = [fsBold]
          ParentFont = False
        end
        object Label22: TLabel
          Left = 507
          Top = 61
          Width = 11
          Height = 14
          Caption = 'n'#186
        end
        object spCEP: TSpeedButton
          Left = 186
          Top = 30
          Width = 23
          Height = 22
          Enabled = False
          Flat = True
          Glyph.Data = {
            76010000424D7601000000000000760000002800000020000000100000000100
            04000000000000010000120B0000120B00001000000000000000000000000000
            800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
            333333333333FF3333333333333C0C333333333333F777F3333333333CC0F0C3
            333333333777377F33333333C30F0F0C333333337F737377F333333C00FFF0F0
            C33333F7773337377F333CC0FFFFFF0F0C3337773F33337377F3C30F0FFFFFF0
            F0C37F7373F33337377F00FFF0FFFFFF0F0C7733373F333373770FFFFF0FFFFF
            F0F073F33373F333373730FFFFF0FFFFFF03373F33373F333F73330FFFFF0FFF
            00333373F33373FF77333330FFFFF000333333373F333777333333330FFF0333
            3333333373FF7333333333333000333333333333377733333333333333333333
            3333333333333333333333333333333333333333333333333333}
          NumGlyphs = 2
          OnClick = spCEPClick
        end
        object edttipend_codigo: TEdit
          Tag = 2
          Left = 107
          Top = 1
          Width = 22
          Height = 22
          BevelInner = bvLowered
          BevelKind = bkFlat
          BevelOuter = bvRaised
          BorderStyle = bsNone
          CharCase = ecUpperCase
          TabOrder = 1
          OnEnter = edttipend_codigoEnter
          OnExit = edttipend_codigoExit
          OnKeyDown = edttipend_codigoKeyDown
        end
        object Panel12: TPanel
          Left = 168
          Top = 1
          Width = 337
          Height = 22
          Alignment = taLeftJustify
          BevelInner = bvLowered
          TabOrder = 0
        end
        object edtend_endereco: TEdit
          Left = 106
          Top = 59
          Width = 398
          Height = 22
          BevelInner = bvLowered
          BevelKind = bkFlat
          BevelOuter = bvRaised
          BorderStyle = bsNone
          CharCase = ecUpperCase
          MaxLength = 35
          TabOrder = 3
        end
        object edtend_bairro: TEdit
          Left = 106
          Top = 85
          Width = 249
          Height = 22
          BevelInner = bvLowered
          BevelKind = bkFlat
          BevelOuter = bvRaised
          BorderStyle = bsNone
          CharCase = ecUpperCase
          MaxLength = 25
          TabOrder = 5
        end
        object edtend_fone: TEdit
          Left = 130
          Top = 138
          Width = 121
          Height = 22
          BevelInner = bvLowered
          BevelKind = bkFlat
          BevelOuter = bvRaised
          BorderStyle = bsNone
          CharCase = ecUpperCase
          MaxLength = 13
          TabOrder = 7
          OnKeyPress = edtent_codigoKeyPress
        end
        object edtend_fax: TEdit
          Left = 417
          Top = 138
          Width = 121
          Height = 22
          BevelInner = bvLowered
          BevelKind = bkFlat
          BevelOuter = bvRaised
          BorderStyle = bsNone
          CharCase = ecUpperCase
          MaxLength = 13
          TabOrder = 8
          OnKeyDown = edtend_faxKeyDown
          OnKeyPress = edtent_codigoKeyPress
        end
        object edtcid_codigo: TEdit
          Left = 106
          Top = 112
          Width = 33
          Height = 22
          BevelInner = bvLowered
          BevelKind = bkFlat
          BevelOuter = bvRaised
          BorderStyle = bsNone
          CharCase = ecUpperCase
          MaxLength = 4
          TabOrder = 6
          OnEnter = edtcid_codigoEnter
          OnExit = edtcid_codigoExit
          OnKeyDown = edtcid_codigoKeyDown
        end
        object Panel13: TPanel
          Left = 167
          Top = 112
          Width = 372
          Height = 22
          Alignment = taLeftJustify
          BevelInner = bvLowered
          TabOrder = 9
        end
        object DbgEndereco: TDBGrid
          Left = 0
          Top = 168
          Width = 621
          Height = 82
          Align = alBottom
          DataSource = DsEndereco
          Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
          TabOrder = 10
          TitleFont.Charset = ANSI_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -11
          TitleFont.Name = 'Arial'
          TitleFont.Style = [fsBold]
          OnDblClick = DbgEnderecoDblClick
          Columns = <
            item
              Expanded = False
              FieldName = 'tpend'
              Width = 41
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'descricao'
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'endereco'
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'bairro'
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'cep'
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'cidade'
              Width = 174
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'fone'
              Width = 99
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'fax'
              Visible = True
            end>
        end
        object edtNum: TEdit
          Left = 521
          Top = 59
          Width = 65
          Height = 22
          BevelInner = bvLowered
          BevelKind = bkFlat
          BevelOuter = bvRaised
          BorderStyle = bsNone
          CharCase = ecUpperCase
          MaxLength = 5
          TabOrder = 4
        end
        object edtend_cep: TMaskEdit
          Left = 107
          Top = 30
          Width = 77
          Height = 22
          BevelInner = bvLowered
          BevelOuter = bvRaised
          BevelKind = bkFlat
          BorderStyle = bsNone
          EditMask = '!99.999-999;0;_'
          MaxLength = 10
          TabOrder = 2
          OnEnter = edtend_cepEnter
          OnExit = edtend_cepExit
          OnKeyDown = edtend_cepKeyDown
        end
      end
      object TabSheet6: TTabSheet
        Caption = 'Contatos'
        ImageIndex = 5
        object Label30: TLabel
          Left = 53
          Top = 3
          Width = 32
          Height = 14
          Caption = 'Nome'
        end
        object Label31: TLabel
          Left = 7
          Top = 28
          Width = 78
          Height = 14
          Caption = 'Departamento'
        end
        object Label32: TLabel
          Left = 420
          Top = 30
          Width = 33
          Height = 14
          Caption = 'Ramal'
        end
        object Label33: TLabel
          Left = 53
          Top = 53
          Width = 32
          Height = 14
          Caption = 'E-Mail'
        end
        object Label34: TLabel
          Left = 52
          Top = 78
          Width = 33
          Height = 14
          Caption = 'Cargo'
        end
        object btn_EliminaContato: TSpeedButton
          Left = 499
          Top = 2
          Width = 75
          Height = 22
          Caption = 'Eliminar'
          Flat = True
          OnClick = btn_EliminaContatoClick
        end
        object Label38: TLabel
          Left = 322
          Top = 80
          Width = 128
          Height = 14
          Caption = 'Dia/M'#234's de Nascimento'
        end
        object edtCont_nome: TEdit
          Left = 94
          Top = 2
          Width = 401
          Height = 22
          BevelInner = bvLowered
          BevelKind = bkFlat
          BevelOuter = bvRaised
          BorderStyle = bsNone
          CharCase = ecUpperCase
          MaxLength = 40
          TabOrder = 0
          OnKeyDown = edtCont_nomeKeyDown
        end
        object edtCont_departamento: TEdit
          Left = 94
          Top = 27
          Width = 265
          Height = 22
          BevelInner = bvLowered
          BevelKind = bkFlat
          BevelOuter = bvRaised
          BorderStyle = bsNone
          CharCase = ecUpperCase
          MaxLength = 25
          TabOrder = 1
        end
        object edtCont_Ramal: TEdit
          Left = 462
          Top = 28
          Width = 33
          Height = 22
          BevelInner = bvLowered
          BevelKind = bkFlat
          BevelOuter = bvRaised
          BorderStyle = bsNone
          CharCase = ecUpperCase
          MaxLength = 4
          TabOrder = 2
        end
        object edtCont_email: TEdit
          Left = 94
          Top = 51
          Width = 401
          Height = 22
          BevelInner = bvLowered
          BevelKind = bkFlat
          BevelOuter = bvRaised
          BorderStyle = bsNone
          CharCase = ecLowerCase
          MaxLength = 50
          TabOrder = 3
        end
        object edtCont_Cargo: TEdit
          Left = 94
          Top = 76
          Width = 185
          Height = 22
          BevelInner = bvLowered
          BevelKind = bkFlat
          BevelOuter = bvRaised
          BorderStyle = bsNone
          CharCase = ecUpperCase
          MaxLength = 20
          TabOrder = 4
        end
        object EdtCont_nasc: TMaskEdit
          Left = 456
          Top = 76
          Width = 39
          Height = 22
          BevelInner = bvLowered
          BevelOuter = bvRaised
          BevelKind = bkFlat
          BorderStyle = bsNone
          EditMask = '!99/99;0;_'
          MaxLength = 5
          TabOrder = 5
          OnKeyDown = EdtCont_nascKeyDown
        end
        object DbgContato: TDBGrid
          Left = 0
          Top = 123
          Width = 621
          Height = 127
          TabStop = False
          Align = alBottom
          DataSource = DsContato
          Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
          TabOrder = 6
          TitleFont.Charset = ANSI_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -11
          TitleFont.Name = 'Arial'
          TitleFont.Style = [fsBold]
          OnDblClick = DbgContatoDblClick
          Columns = <
            item
              Expanded = False
              FieldName = 'nome'
              Title.Caption = 'Nome'
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'depto'
              Title.Caption = 'Departamento'
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'Ramal'
              Width = 48
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'e_mail'
              Title.Caption = 'E-Mail'
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'Cargo'
              Width = 140
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'nasc'
              Title.Caption = 'Nasc.'
              Width = 65
              Visible = True
            end>
        end
      end
      object TabSheet3: TTabSheet
        Caption = 'Outras Informa'#231#245'es'
        ImageIndex = 2
        OnEnter = TabSheet3Enter
        object Label14: TLabel
          Left = 26
          Top = 6
          Width = 103
          Height = 14
          Caption = 'Grupo Empres'#225'rial'
        end
        object Label15: TLabel
          Left = 68
          Top = 34
          Width = 61
          Height = 14
          Caption = 'Supervisor'
        end
        object Label16: TLabel
          Left = 37
          Top = 61
          Width = 92
          Height = 14
          Caption = 'Regi'#227'o de Venda'
        end
        object Label17: TLabel
          Left = 47
          Top = 89
          Width = 82
          Height = 14
          Caption = 'Representante'
        end
        object Label18: TLabel
          Left = 44
          Top = 117
          Width = 85
          Height = 14
          Caption = 'Linha de Venda'
        end
        object Label19: TLabel
          Left = 28
          Top = 145
          Width = 101
          Height = 14
          Caption = 'Local de Cobran'#231'a'
        end
        object Label20: TLabel
          Left = 3
          Top = 172
          Width = 126
          Height = 14
          Caption = 'Sub-Local de Cobran'#231'a'
        end
        object Label21: TLabel
          Left = 27
          Top = 200
          Width = 102
          Height = 14
          Caption = 'Ramo de Atividade'
        end
        object btnC_GrupoEmpresarial: TSpeedButton
          Left = 175
          Top = 4
          Width = 23
          Height = 22
          Enabled = False
          Flat = True
          Glyph.Data = {
            76010000424D7601000000000000760000002800000020000000100000000100
            04000000000000010000120B0000120B00001000000000000000000000000000
            800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
            333333333333FF3333333333333C0C333333333333F777F3333333333CC0F0C3
            333333333777377F33333333C30F0F0C333333337F737377F333333C00FFF0F0
            C33333F7773337377F333CC0FFFFFF0F0C3337773F33337377F3C30F0FFFFFF0
            F0C37F7373F33337377F00FFF0FFFFFF0F0C7733373F333373770FFFFF0FFFFF
            F0F073F33373F333373730FFFFF0FFFFFF03373F33373F333F73330FFFFF0FFF
            00333373F33373FF77333330FFFFF000333333373F333777333333330FFF0333
            3333333373FF7333333333333000333333333333377733333333333333333333
            3333333333333333333333333333333333333333333333333333}
          NumGlyphs = 2
          OnClick = btnC_GrupoEmpresarialClick
        end
        object btnC_Supervisor: TSpeedButton
          Left = 175
          Top = 32
          Width = 23
          Height = 22
          Enabled = False
          Flat = True
          Glyph.Data = {
            76010000424D7601000000000000760000002800000020000000100000000100
            04000000000000010000120B0000120B00001000000000000000000000000000
            800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
            333333333333FF3333333333333C0C333333333333F777F3333333333CC0F0C3
            333333333777377F33333333C30F0F0C333333337F737377F333333C00FFF0F0
            C33333F7773337377F333CC0FFFFFF0F0C3337773F33337377F3C30F0FFFFFF0
            F0C37F7373F33337377F00FFF0FFFFFF0F0C7733373F333373770FFFFF0FFFFF
            F0F073F33373F333373730FFFFF0FFFFFF03373F33373F333F73330FFFFF0FFF
            00333373F33373FF77333330FFFFF000333333373F333777333333330FFF0333
            3333333373FF7333333333333000333333333333377733333333333333333333
            3333333333333333333333333333333333333333333333333333}
          NumGlyphs = 2
          OnClick = btnC_SupervisorClick
        end
        object btnC_RegiaoVenda: TSpeedButton
          Left = 175
          Top = 60
          Width = 23
          Height = 22
          Enabled = False
          Flat = True
          Glyph.Data = {
            76010000424D7601000000000000760000002800000020000000100000000100
            04000000000000010000120B0000120B00001000000000000000000000000000
            800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
            333333333333FF3333333333333C0C333333333333F777F3333333333CC0F0C3
            333333333777377F33333333C30F0F0C333333337F737377F333333C00FFF0F0
            C33333F7773337377F333CC0FFFFFF0F0C3337773F33337377F3C30F0FFFFFF0
            F0C37F7373F33337377F00FFF0FFFFFF0F0C7733373F333373770FFFFF0FFFFF
            F0F073F33373F333373730FFFFF0FFFFFF03373F33373F333F73330FFFFF0FFF
            00333373F33373FF77333330FFFFF000333333373F333777333333330FFF0333
            3333333373FF7333333333333000333333333333377733333333333333333333
            3333333333333333333333333333333333333333333333333333}
          NumGlyphs = 2
          OnClick = btnC_RegiaoVendaClick
        end
        object btnC_Representante: TSpeedButton
          Left = 175
          Top = 88
          Width = 23
          Height = 22
          Enabled = False
          Flat = True
          Glyph.Data = {
            76010000424D7601000000000000760000002800000020000000100000000100
            04000000000000010000120B0000120B00001000000000000000000000000000
            800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
            333333333333FF3333333333333C0C333333333333F777F3333333333CC0F0C3
            333333333777377F33333333C30F0F0C333333337F737377F333333C00FFF0F0
            C33333F7773337377F333CC0FFFFFF0F0C3337773F33337377F3C30F0FFFFFF0
            F0C37F7373F33337377F00FFF0FFFFFF0F0C7733373F333373770FFFFF0FFFFF
            F0F073F33373F333373730FFFFF0FFFFFF03373F33373F333F73330FFFFF0FFF
            00333373F33373FF77333330FFFFF000333333373F333777333333330FFF0333
            3333333373FF7333333333333000333333333333377733333333333333333333
            3333333333333333333333333333333333333333333333333333}
          NumGlyphs = 2
          OnClick = btnC_RepresentanteClick
        end
        object btnC_LinhaVenda: TSpeedButton
          Left = 175
          Top = 116
          Width = 23
          Height = 22
          Enabled = False
          Flat = True
          Glyph.Data = {
            76010000424D7601000000000000760000002800000020000000100000000100
            04000000000000010000120B0000120B00001000000000000000000000000000
            800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
            333333333333FF3333333333333C0C333333333333F777F3333333333CC0F0C3
            333333333777377F33333333C30F0F0C333333337F737377F333333C00FFF0F0
            C33333F7773337377F333CC0FFFFFF0F0C3337773F33337377F3C30F0FFFFFF0
            F0C37F7373F33337377F00FFF0FFFFFF0F0C7733373F333373770FFFFF0FFFFF
            F0F073F33373F333373730FFFFF0FFFFFF03373F33373F333F73330FFFFF0FFF
            00333373F33373FF77333330FFFFF000333333373F333777333333330FFF0333
            3333333373FF7333333333333000333333333333377733333333333333333333
            3333333333333333333333333333333333333333333333333333}
          NumGlyphs = 2
          OnClick = btnC_LinhaVendaClick
        end
        object btnC_LocalCobranca: TSpeedButton
          Left = 175
          Top = 144
          Width = 23
          Height = 22
          Enabled = False
          Flat = True
          Glyph.Data = {
            76010000424D7601000000000000760000002800000020000000100000000100
            04000000000000010000120B0000120B00001000000000000000000000000000
            800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
            333333333333FF3333333333333C0C333333333333F777F3333333333CC0F0C3
            333333333777377F33333333C30F0F0C333333337F737377F333333C00FFF0F0
            C33333F7773337377F333CC0FFFFFF0F0C3337773F33337377F3C30F0FFFFFF0
            F0C37F7373F33337377F00FFF0FFFFFF0F0C7733373F333373770FFFFF0FFFFF
            F0F073F33373F333373730FFFFF0FFFFFF03373F33373F333F73330FFFFF0FFF
            00333373F33373FF77333330FFFFF000333333373F333777333333330FFF0333
            3333333373FF7333333333333000333333333333377733333333333333333333
            3333333333333333333333333333333333333333333333333333}
          NumGlyphs = 2
          OnClick = btnC_LocalCobrancaClick
        end
        object btnC_SubLocalCobranca: TSpeedButton
          Left = 175
          Top = 172
          Width = 23
          Height = 22
          Enabled = False
          Flat = True
          Glyph.Data = {
            76010000424D7601000000000000760000002800000020000000100000000100
            04000000000000010000120B0000120B00001000000000000000000000000000
            800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
            333333333333FF3333333333333C0C333333333333F777F3333333333CC0F0C3
            333333333777377F33333333C30F0F0C333333337F737377F333333C00FFF0F0
            C33333F7773337377F333CC0FFFFFF0F0C3337773F33337377F3C30F0FFFFFF0
            F0C37F7373F33337377F00FFF0FFFFFF0F0C7733373F333373770FFFFF0FFFFF
            F0F073F33373F333373730FFFFF0FFFFFF03373F33373F333F73330FFFFF0FFF
            00333373F33373FF77333330FFFFF000333333373F333777333333330FFF0333
            3333333373FF7333333333333000333333333333377733333333333333333333
            3333333333333333333333333333333333333333333333333333}
          NumGlyphs = 2
          OnClick = btnC_SubLocalCobrancaClick
        end
        object btnC_RamoAtividade: TSpeedButton
          Left = 175
          Top = 200
          Width = 23
          Height = 22
          Enabled = False
          Flat = True
          Glyph.Data = {
            76010000424D7601000000000000760000002800000020000000100000000100
            04000000000000010000120B0000120B00001000000000000000000000000000
            800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
            333333333333FF3333333333333C0C333333333333F777F3333333333CC0F0C3
            333333333777377F33333333C30F0F0C333333337F737377F333333C00FFF0F0
            C33333F7773337377F333CC0FFFFFF0F0C3337773F33337377F3C30F0FFFFFF0
            F0C37F7373F33337377F00FFF0FFFFFF0F0C7733373F333373770FFFFF0FFFFF
            F0F073F33373F333373730FFFFF0FFFFFF03373F33373F333F73330FFFFF0FFF
            00333373F33373FF77333330FFFFF000333333373F333777333333330FFF0333
            3333333373FF7333333333333000333333333333377733333333333333333333
            3333333333333333333333333333333333333333333333333333}
          NumGlyphs = 2
          OnClick = btnC_RamoAtividadeClick
        end
        object Label44: TLabel
          Left = 27
          Top = 228
          Width = 88
          Height = 14
          Caption = 'Tabela de Pre'#231'o'
        end
        object btnC_TabelaPreco: TSpeedButton
          Left = 175
          Top = 228
          Width = 23
          Height = 22
          Enabled = False
          Flat = True
          Glyph.Data = {
            76010000424D7601000000000000760000002800000020000000100000000100
            04000000000000010000120B0000120B00001000000000000000000000000000
            800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
            333333333333FF3333333333333C0C333333333333F777F3333333333CC0F0C3
            333333333777377F33333333C30F0F0C333333337F737377F333333C00FFF0F0
            C33333F7773337377F333CC0FFFFFF0F0C3337773F33337377F3C30F0FFFFFF0
            F0C37F7373F33337377F00FFF0FFFFFF0F0C7733373F333373770FFFFF0FFFFF
            F0F073F33373F333373730FFFFF0FFFFFF03373F33373F333F73330FFFFF0FFF
            00333373F33373FF77333330FFFFF000333333373F333777333333330FFF0333
            3333333373FF7333333333333000333333333333377733333333333333333333
            3333333333333333333333333333333333333333333333333333}
          NumGlyphs = 2
          OnClick = btnC_TabelaPrecoClick
        end
        object edtgrupo_codigo: TEdit
          Left = 135
          Top = 4
          Width = 33
          Height = 22
          BevelInner = bvLowered
          BevelKind = bkFlat
          BevelOuter = bvRaised
          BorderStyle = bsNone
          MaxLength = 4
          TabOrder = 0
          OnEnter = edtgrupo_codigoEnter
          OnExit = edtgrupo_codigoExit
          OnKeyDown = edtgrupo_codigoKeyDown
        end
        object Panel3: TPanel
          Left = 207
          Top = 4
          Width = 300
          Height = 22
          Alignment = taLeftJustify
          BevelInner = bvLowered
          TabOrder = 8
        end
        object edtsup_codigo: TEdit
          Left = 135
          Top = 32
          Width = 33
          Height = 22
          BevelInner = bvLowered
          BevelKind = bkFlat
          BevelOuter = bvRaised
          BorderStyle = bsNone
          MaxLength = 3
          TabOrder = 1
          OnEnter = edtsup_codigoEnter
          OnExit = edtsup_codigoExit
          OnKeyDown = edtsup_codigoKeyDown
        end
        object Panel5: TPanel
          Left = 207
          Top = 32
          Width = 300
          Height = 22
          Alignment = taLeftJustify
          BevelInner = bvLowered
          TabOrder = 9
        end
        object edtregiao_codigo: TEdit
          Left = 135
          Top = 59
          Width = 33
          Height = 22
          BevelInner = bvLowered
          BevelKind = bkFlat
          BevelOuter = bvRaised
          BorderStyle = bsNone
          MaxLength = 3
          TabOrder = 2
          OnEnter = edtregiao_codigoEnter
          OnExit = edtregiao_codigoExit
          OnKeyDown = edtregiao_codigoKeyDown
        end
        object Panel6: TPanel
          Left = 207
          Top = 60
          Width = 300
          Height = 22
          Alignment = taLeftJustify
          BevelInner = bvLowered
          TabOrder = 10
        end
        object edtrep_codigo: TEdit
          Left = 135
          Top = 87
          Width = 33
          Height = 22
          BevelInner = bvLowered
          BevelKind = bkFlat
          BevelOuter = bvRaised
          BorderStyle = bsNone
          MaxLength = 3
          TabOrder = 3
          OnEnter = edtrep_codigoEnter
          OnExit = edtrep_codigoExit
          OnKeyDown = edtrep_codigoKeyDown
        end
        object Panel7: TPanel
          Left = 207
          Top = 88
          Width = 300
          Height = 22
          Alignment = taLeftJustify
          BevelInner = bvLowered
          TabOrder = 11
        end
        object edtlinha_codigo: TEdit
          Left = 135
          Top = 115
          Width = 33
          Height = 22
          BevelInner = bvLowered
          BevelKind = bkFlat
          BevelOuter = bvRaised
          BorderStyle = bsNone
          MaxLength = 3
          TabOrder = 4
          OnEnter = edtlinha_codigoEnter
          OnExit = edtlinha_codigoExit
          OnKeyDown = edtlinha_codigoKeyDown
        end
        object Panel8: TPanel
          Left = 207
          Top = 116
          Width = 300
          Height = 22
          Alignment = taLeftJustify
          BevelInner = bvLowered
          TabOrder = 12
        end
        object edtlocal_codigo: TEdit
          Left = 135
          Top = 143
          Width = 33
          Height = 22
          BevelInner = bvLowered
          BevelKind = bkFlat
          BevelOuter = bvRaised
          BorderStyle = bsNone
          MaxLength = 3
          TabOrder = 5
          OnEnter = edtlocal_codigoEnter
          OnExit = edtlocal_codigoExit
          OnKeyDown = edtlocal_codigoKeyDown
        end
        object Panel9: TPanel
          Left = 207
          Top = 144
          Width = 300
          Height = 22
          Alignment = taLeftJustify
          BevelInner = bvLowered
          TabOrder = 13
        end
        object edtsubl_codigo: TEdit
          Left = 135
          Top = 170
          Width = 33
          Height = 22
          BevelInner = bvLowered
          BevelKind = bkFlat
          BevelOuter = bvRaised
          BorderStyle = bsNone
          MaxLength = 3
          TabOrder = 6
          OnEnter = edtsubl_codigoEnter
          OnExit = edtsubl_codigoExit
          OnKeyDown = edtsubl_codigoKeyDown
        end
        object Panel10: TPanel
          Left = 207
          Top = 172
          Width = 300
          Height = 22
          Alignment = taLeftJustify
          BevelInner = bvLowered
          TabOrder = 14
        end
        object edtramo_codigo: TEdit
          Left = 135
          Top = 198
          Width = 33
          Height = 22
          BevelInner = bvLowered
          BevelKind = bkFlat
          BevelOuter = bvRaised
          BorderStyle = bsNone
          MaxLength = 3
          TabOrder = 7
          OnEnter = edtramo_codigoEnter
          OnExit = edtramo_codigoExit
          OnKeyDown = edtramo_codigoKeyDown
        end
        object Panel11: TPanel
          Left = 207
          Top = 200
          Width = 300
          Height = 22
          Alignment = taLeftJustify
          BevelInner = bvLowered
          TabOrder = 15
        end
        object edTab_Codigo: TEdit
          Left = 135
          Top = 226
          Width = 33
          Height = 22
          BevelInner = bvLowered
          BevelKind = bkFlat
          BevelOuter = bvRaised
          BorderStyle = bsNone
          MaxLength = 3
          TabOrder = 16
          OnEnter = edTab_CodigoEnter
          OnExit = edTab_CodigoExit
          OnKeyDown = edTab_CodigoKeyDown
        end
        object pnlTabelaPreco: TPanel
          Left = 207
          Top = 228
          Width = 300
          Height = 22
          Alignment = taLeftJustify
          BevelInner = bvLowered
          TabOrder = 17
        end
      end
      object TabSheet4: TTabSheet
        Caption = 'Observa'#231#227'o'
        ImageIndex = 3
        object edtent_observacao: TMemo
          Left = 0
          Top = 0
          Width = 621
          Height = 250
          Align = alClient
          BevelKind = bkFlat
          BorderStyle = bsNone
          TabOrder = 0
          OnEnter = edtent_observacaoEnter
          OnExit = edtent_observacaoExit
        end
      end
      object TabSheet7: TTabSheet
        Caption = 'Produto '
        ImageIndex = 6
        object RxLabel1: TRxLabel
          Left = 3
          Top = 132
          Width = 193
          Height = 14
          Caption = 'Descri'#231#227'o do produto por entidade'
          Font.Charset = ANSI_CHARSET
          Font.Color = clBlue
          Font.Height = -11
          Font.Name = 'Arial'
          Font.Style = [fsBold]
          ParentFont = False
        end
        object RxLabel2: TRxLabel
          Left = 3
          Top = -2
          Width = 191
          Height = 14
          Caption = 'Descri'#231#227'o de produto cadastrados'
          Font.Charset = ANSI_CHARSET
          Font.Color = clBlue
          Font.Height = -11
          Font.Name = 'Arial'
          Font.Style = [fsBold]
          ParentFont = False
        end
        object dbgProdEntidade: TDBGrid
          Left = 0
          Top = 145
          Width = 621
          Height = 78
          Color = clAqua
          Options = [dgTitles, dgIndicator, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
          TabOrder = 0
          TitleFont.Charset = ANSI_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -11
          TitleFont.Name = 'Arial'
          TitleFont.Style = [fsBold]
          OnKeyDown = dbgProdEntidadeKeyDown
          Columns = <
            item
              Expanded = False
              FieldName = 'pre_codigo_entidade'
              Title.Caption = 'C'#243'digo'
              Width = 91
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'pre_descricao'
              Title.Caption = 'Descri'#231#227'o'
              Width = 236
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'pre_medida'
              Title.Caption = 'Medida'
              Width = 70
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'Pre_unidade'
              Title.Caption = 'Unidade'
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'pre_custo'
              Title.Caption = 'Custo'
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'pre_saldo'
              Title.Caption = 'Saldo'
              Visible = True
            end>
        end
        object dbgProduto: TDBGrid
          Left = 0
          Top = 11
          Width = 621
          Height = 119
          Color = clInfoBk
          Options = [dgTitles, dgIndicator, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
          TabOrder = 1
          TitleFont.Charset = ANSI_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -11
          TitleFont.Name = 'Arial'
          TitleFont.Style = [fsBold]
          OnCellClick = dbgProdutoCellClick
          Columns = <
            item
              Expanded = False
              FieldName = 'Pro_codigo'
              Title.Caption = 'C'#243'digo'
              Width = 84
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'Pro_Nome'
              Title.Caption = 'Descri'#231#227'o'
              Width = 501
              Visible = True
            end>
        end
      end
      object TabSheet8: TTabSheet
        Caption = 'P'#243's Venda'
        ImageIndex = 7
        object Label39: TLabel
          Left = 28
          Top = 17
          Width = 58
          Height = 14
          Caption = 'Nota Fiscal'
        end
        object Label40: TLabel
          Left = 63
          Top = 47
          Width = 23
          Height = 14
          Caption = 'Data'
        end
        object Label41: TLabel
          Left = 43
          Top = 77
          Width = 43
          Height = 14
          Caption = 'Contato'
        end
        object Label42: TLabel
          Left = 224
          Top = 15
          Width = 74
          Height = 14
          Caption = 'Observa'#231#227'o 1'
        end
        object Label43: TLabel
          Left = 224
          Top = 59
          Width = 74
          Height = 14
          Caption = 'Observa'#231#227'o 2'
        end
        object edNF: TEdit
          Left = 92
          Top = 15
          Width = 121
          Height = 22
          BevelKind = bkFlat
          BorderStyle = bsNone
          MaxLength = 9
          TabOrder = 0
          OnKeyDown = edNFKeyDown
        end
        object edData: TDateEdit
          Left = 92
          Top = 45
          Width = 121
          Height = 21
          NumGlyphs = 2
          TabOrder = 1
          OnKeyDown = edDataKeyDown
        end
        object edContato: TEdit
          Left = 92
          Top = 75
          Width = 205
          Height = 22
          BevelKind = bkFlat
          BorderStyle = bsNone
          CharCase = ecUpperCase
          MaxLength = 50
          TabOrder = 2
        end
        object edObs1: TMemo
          Left = 304
          Top = 15
          Width = 309
          Height = 38
          BevelKind = bkFlat
          BorderStyle = bsNone
          MaxLength = 200
          TabOrder = 3
        end
        object edObs2: TMemo
          Left = 304
          Top = 59
          Width = 309
          Height = 38
          BevelKind = bkFlat
          BorderStyle = bsNone
          MaxLength = 200
          TabOrder = 4
          OnKeyDown = edObs2KeyDown
        end
        object dbgPosVda: TDBGrid
          Left = 0
          Top = 112
          Width = 621
          Height = 138
          Hint = 'Clique 2 vezes p/ Editar ou Del p/ Excluir'
          Align = alBottom
          DataSource = dsPosVenda
          Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgMultiSelect]
          TabOrder = 5
          TitleFont.Charset = ANSI_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -11
          TitleFont.Name = 'Arial'
          TitleFont.Style = [fsBold]
          OnDblClick = dbgPosVdaDblClick
          OnEnter = dbgPosVdaEnter
          OnExit = dbgPosVdaExit
          OnKeyDown = dbgPosVdaKeyDown
          Columns = <
            item
              Expanded = False
              FieldName = 'NF'
              Title.Caption = 'Nota Fiscal'
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'Data'
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'Atendende'
              Title.Caption = 'Contato'
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'Obs1'
              Title.Caption = 'Obs 1'
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'Obs2'
              Title.Caption = 'Obs 2'
              Visible = True
            end>
        end
      end
    end
  end
  inherited Panel4: TPanel
    Top = 348
    Width = 641
    Align = alTop
    inherited btnGravar: TBitBtn
      OnClick = btnGravarClick
    end
    inherited btnCancelar: TBitBtn
      Left = 275
    end
    inherited btnFechar: TBitBtn
      Left = 540
    end
    inherited BtnEliminar: TBitBtn
      Left = 142
      OnClick = BtnEliminarClick
    end
    inherited btnlistagem: TBitBtn
      Left = 407
      OnClick = btnlistagemClick
    end
  end
  inherited BS: TStatusBar
    Top = 383
    Width = 641
    Align = alTop
    Panels = <
      item
        Width = 410
      end
      item
        Width = 100
      end
      item
        Alignment = taCenter
        Width = 65
      end
      item
        Alignment = taCenter
        Width = 65
      end>
  end
  inherited Timer1: TTimer
    Left = 639
    Top = 2
  end
  inherited RDP: TRDprint
    Left = 616
    Top = 1
  end
  object CdsContatos: TClientDataSet
    Aggregates = <>
    Params = <>
    Left = 479
    Top = 2
    object CdsContatosnome: TStringField
      FieldName = 'nome'
      Size = 40
    end
    object CdsContatosdepto: TStringField
      FieldName = 'depto'
      Size = 25
    end
    object CdsContatosRamal: TStringField
      FieldName = 'Ramal'
      Size = 4
    end
    object CdsContatose_mail: TStringField
      DisplayWidth = 50
      FieldName = 'e_mail'
      Size = 50
    end
    object CdsContatosCargo: TStringField
      FieldName = 'Cargo'
    end
    object CdsContatosnasc: TStringField
      FieldName = 'nasc'
      Size = 4
    end
  end
  object DsContato: TDataSource
    AutoEdit = False
    DataSet = CdsContatos
    Left = 511
    Top = 2
  end
  object DsEndereco: TDataSource
    AutoEdit = False
    DataSet = CdsEndereco
    Left = 352
  end
  object CdsEndereco: TClientDataSet
    Aggregates = <>
    Params = <>
    Left = 384
    object CdsEnderecotpend: TStringField
      DisplayLabel = 'Tipo'
      FieldName = 'tpend'
      Size = 2
    end
    object CdsEnderecodescricao: TStringField
      DisplayLabel = 'Descri'#231#227'o'
      FieldName = 'descricao'
      Size = 40
    end
    object CdsEnderecoendereco: TStringField
      DisplayLabel = 'Endere'#231'o'
      FieldName = 'endereco'
      Size = 40
    end
    object CdsEnderecobairro: TStringField
      DisplayLabel = 'Bairro'
      FieldName = 'bairro'
      Size = 25
    end
    object CdsEnderecocep: TStringField
      DisplayLabel = 'CEP'
      FieldName = 'cep'
      Size = 9
    end
    object CdsEnderecocid_codigo: TStringField
      FieldName = 'cid_codigo'
      Size = 4
    end
    object CdsEnderecocidade: TStringField
      DisplayLabel = 'Cidade'
      FieldName = 'cidade'
      Size = 25
    end
    object CdsEnderecofone: TStringField
      DisplayLabel = 'Fone'
      FieldName = 'fone'
      Size = 19
    end
    object CdsEnderecofax: TStringField
      DisplayLabel = 'Fax'
      FieldName = 'fax'
      Size = 19
    end
  end
  object DtSource: TDataSource
    DataSet = tq
    Left = 511
    Top = 86
  end
  object tq: TQuery
    DatabaseName = 'industrial'
    SQL.Strings = (
      'Select Ent_Codigo, Ent_CNPJ, substr(Ent_Nome,1,40)  Nome,'
      'substr(Ent_Fantasia,1,40)  Fantasia'
      'from entidade')
    Left = 559
    Top = 86
    object tqENT_CODIGO: TStringField
      FieldName = 'ENT_CODIGO'
      Size = 5
    end
    object tqENT_CNPJ: TStringField
      FieldName = 'ENT_CNPJ'
      Size = 18
    end
    object tqNOME: TStringField
      FieldName = 'NOME'
      Size = 40
    end
    object tqFANTASIA: TStringField
      FieldName = 'FANTASIA'
      Size = 25
    end
  end
  object CDSDelete: TClientDataSet
    Aggregates = <>
    Params = <>
    Left = 379
    Top = 87
    object CDSDeleteEntidade: TStringField
      FieldName = 'Entidade'
    end
    object CDSDeleteTipoEnd: TStringField
      FieldName = 'TipoEnd'
    end
    object CDSDeleteEnd_Codigo: TStringField
      FieldName = 'End_Codigo'
    end
  end
  object CDSPosVenda: TClientDataSet
    Aggregates = <>
    Params = <>
    Left = 383
    Top = 186
    object CDSPosVendaData: TDateField
      FieldName = 'Data'
    end
    object CDSPosVendaNF: TStringField
      FieldName = 'NF'
      Size = 9
    end
    object CDSPosVendaAtendende: TStringField
      DisplayWidth = 50
      FieldName = 'Atendende'
      Size = 50
    end
    object CDSPosVendaObs1: TStringField
      DisplayWidth = 150
      FieldName = 'Obs1'
      Size = 200
    end
    object CDSPosVendaObs2: TStringField
      FieldName = 'Obs2'
      Size = 200
    end
    object CDSPosVendaEntidade: TStringField
      FieldName = 'Entidade'
      Size = 5
    end
    object CDSPosVendaCod: TStringField
      FieldName = 'Cod'
      Size = 3
    end
  end
  object dsPosVenda: TDataSource
    DataSet = CDSPosVenda
    Left = 411
    Top = 186
  end
end
